home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / basicos2.zip / ARRAY.BAS next >
BASIC Source File  |  1996-02-11  |  533b  |  18 lines

  1. 0 rem *
  2. 1 rem *
  3. 2 rem *ARRAY_TEST_FOR_NITROUSBASIC
  4. 3 rem *
  5. 4 rem *
  6. 5 INDEX=0 
  7. 10 dim A[5 ,5 ,5 ,5 ]
  8. 15 print "One moment, Initializing the array:"
  9. 20 for I=0 to 4 :for J=0 to 4 :for K=0 to 4 :for L=0 to 4 
  10. 60 A[I,J,K,L]=INDEX
  11. 70 INDEX=INDEX+1 
  12. 80 next L:next K:next J:next I
  13. 100 print "Done Initializing the array...." 
  14. 105 print :print "Here is the array:" :print 
  15. 110 for I=0 to 4 :for J=0 to 4 :for K=0 to 4 :for L=0 to 4 
  16. 120 print "a[" ;I;"," ;J;"," ;K;"," ;L;"] = " ;A[I,J,K,L]
  17. 130 next L:next K:next J:next I
  18.